home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
program
/
dprin101.zip
/
SAMPLE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-05-17
|
1KB
|
54 lines
{*************************************************************
DPrint «
Copyright ⌐ 1992 by :
PHADE SOFTWARE
Inh. Frank Gadegast
Leibnizstr. 30
1000 Berlin 12 GERMANY
Tel. : (030) 312 81 03
Version 1.01 / 17.5.92
**************************************************************}
program sample;
{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
uses WinProcs, WinTypes, WObjects,
DPrint;
const SampleName = 'Sample for Unit DPrint';
type
TSampleApp = object (TApplication)
procedure InitMainWindow; virtual;
end;
{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
procedure TSampleApp.InitMainWindow;
begin
if PrinterSetup (0) = true then
MessageBox (0, 'Print was pressed.', SampleName, mb_OK or mb_IconInformation)
else
MessageBox (0, 'Cancel was pressed.', SampleName, mb_OK or mb_IconInformation);
end;
{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
var SampleApp : TSampleApp;
begin
SampleApp.Init (SampleName);
SampleApp.Done;
end.